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LL AAAAAA BBBBBBBB III! 000000 SSSSSSSS 
LL AAAAAA BBBBBBBB III 000000 SSSSSSSS 
LL AA AA BB BB I] 00 SS 

LL AA AA BB BB I] 00 00 SS 

LL AA AA BB BB II 00 oO SS 

LL AA AA BB BB I] 00 00 SS 

LL AA AA ®88888B8B I] 00 00 SSSSSS 
LL AA ®888B8B88 I] 00 00 SSSSSS 
LL AAAAAAAAAA I] 00 00 SS 
LL AAAAAAAAAA 8B 6B I] 00 00 SS 
LL AA AA BB BB I] 00 00 SS 
LL AA BB I] 00 00 Ss 
LLLLLLLLLL AA AA ®8B88B8B8B IIIII] 000000 SSSSSSSS 
LLLLLLLLLL AA AA 88888888 III] 000000 SSSSSSSS 
FFFFFFFFFF 000000 RRRRRRRR 

FFFFFFFFFF 000000 RRRRRRRR 

FF 00 RR RR 

FF 00 OO RR RR 

FF 00 00 RR RR 

FF 00 00 RR RR 

FFFFFFFF 00 00 RRRRRRRR 

FFFFFFFF 00 00 RRRRRRRR 

FF 00 OO RR RR 

FF 00 00 RR RR 

FF 00 0O RR RR 

FF 00 00 RR RR 

FF 000000 RR RR 

FF 000000 RR RR 
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‘File: LABIOSAMP.FOR 
} Version ‘v04-000' 


eee RRR REE AEE EEE E EERE AAA AAA AEA AAAAAAEAEAETEREE EEE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
* 
® 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ff ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR “ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
‘® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. » 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. 2 
® 
® 
® 
w® 
* 
® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VR RR ERE RE REAR RAE AAAR AAA AAAAA AAA AAAAA AEA AAEAEAETA RATA 
' 


Program LABIO_SAMPLE 


This program samples channel #2 once every 10 seconds. 

It acquires 10 points at 1/tic, averages them and then 
Reports the date, time, and average value on logcial device 
LABIO_SAMPLE_DATA 


Include ‘LABCHNDEF .FOR' 


Parameter MBX_NAME = ‘'LABIO_SAMPLE' 

Character*130° RETURN 

Character*15 C gy 

poorecterse™ DATE_TIM 
SUCCESS, 


popcen® SY 
egert4 DELTA_TIME 
eekersd AVERAGE 


Parameter AD_CHANNEL = 2 ' Channel 
Parameter AD_RATE = 1 : 
Parameter AD BUF _SIZE = 

Parameter SANPLE RATE = 8 0:0:1 

Parameter MAX_SAMPLE = 10 000 ! Maximum # samples 


EMBX 
»NEXT_TIME (2) 


! Map To the Global Data Base and the event flags 


Call LABIO_INIT(O) 
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' Open Mailbox to LABIO_CONNECT 
Open ( Unit = 1, Name = ‘LABIO_CONNECT’ , Type = ‘OLD’ ) 
' Create Mailbox for response from LABIO_CONNECT 


SUCCESS = SYSSCREMBX MBX CHANNEL, ,,2Val('FDOO'x) , MBX N 
If (.mot. SUCCESS ) CalT FATAL_ERROR( SUC CESS, CREATING. MALLBOX" ) 


! Open via FORTRAN 
Open ( Unit = 2, Name = MBX_NAME, Type = ‘Old’ ) 
! Deassign the channel assigned when we created it 
Call SYSSDASSGN( %Val(MBX_CHANNEL) ) 
! Open A Data File 
Open( Unit = 3, Name = ‘LAB_SAMPLE_DATA', Type = ‘New’ ) 
' Connect to the LABIO system 


COMMAND = ‘CONNECT’ 
Write(1,100) COMMAND ,MBX_NAME 


! Wait for Response from LABIO system 


Read(2,200) RETURN_CODE oe Me 
If¢ RETURN_ CODE .ne. 0 5 Go To 99 ‘Failed to connect! 


Allocate Channel AD_CHANNEL 
Rate = AD_RATE 
Buffer size = AD_BUF_SIZE 
Collect 1 buffer at & time 


Ser = ‘ALLOCATE’ 
Write(1,400) COMMAND,AD — AD_RATE,AD =buF SIZE,1 
If( RETURN_CODE .ne. 03 G 9~ ‘Failed to allocate! 


! Every SAMPLE_RATE secs. we will collect one buffer of data 


! Convert ASCII delta time to bina 
Call SYSSBINTIM( SAMPLE "RAT - DELTA_TIME ) 


' Schedule re every delt time interval 
' But be A cones an ys ees wake-ups 

a 

ett SySSSCHDUK(. -DELTA_TIME ,DELTA_TIME) 


' wait for scheduled ty interval 
i0 Call SYSSHIBER() 


! Enable data acqusition by setting event flag ACTIVITY and NOTIFY 


LABIOSAMP.FOR; 1 


OFF +AD_ CHANNEL) ) 
F+AD_CRANNEL) ) 


' Now, wait for — to be filled, event flag STATUS will be set 
i when data are ay 
Call SYSSWAI FRC 2ValCEF_STATUS_OFF+AD_CHANNEL) ) 


! Buffer is filled, get the buffer index 
INDEX = AD_BLOCK(7,AD_CHANNEL) 


' Clear the STATUS event fla gene Aris 6 the 1/0 proce 
Call SYSSCLREF( Val STATUS_OFF+AD_CHA NEL) 
Call SYSSSETEF (¢ TVOl CEE “NOTIFY “OF F +AD_ CHANNEL ) 
! Average the wht 
AVERAG 


= 
Do 20 1 = 1, AD_BUF_SIZE 
20 AVERAGE = AVERAGE +~DATA -BUFFER(I, INDEX,AD_CHANNEL ) 
AVERAGE = AVERAGE/AD_BUF_SIZE 


! Write out average with the acq. date/time 
Write(3,4 6) DATE_TIME ,AVERAGE 


! If we're all done, close files and exit 
If( AD_BLOCK(6,AD_CHANNEL) "Ut AX SAMPLE ) Go To 10 


' ALL done, Call the exit routine 

99 Call EXIT(1) ‘Exit 
100 Format(' *,A,A) 

200 Format (12,A) 

400 Format(' °,A,41) 


End 
'CEnd of File) 


ss 
) 
) 
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